inherited crdAccpoint: TcrdAccpoint
  Left = 249
  Top = 105
  Width = 944
  Height = 691
  HelpContext = 11441
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1090#1086#1095#1082#1080' '#1091#1095#1077#1090#1072
  Constraints.MinHeight = 650
  Constraints.MinWidth = 940
  Menu = MainMenu1
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 618
    Width = 936
    inherited BitBtn1: TBitBtn
      Left = 729
    end
    inherited BitBtn2: TBitBtn
      Left = 831
    end
  end
  inherited ToolBar1: TToolBar
    Width = 936
    Height = 0
  end
  object PageControl: TPageControl [2]
    Left = 0
    Top = 0
    Width = 936
    Height = 618
    ActivePage = tsActs
    Align = alClient
    TabOrder = 2
    OnChange = PageControlChange
    OnChanging = PageControlChanging
    object tsMain: TTabSheet
      Caption = #1054#1089#1085#1086#1074#1085#1099#1077' '#1089#1074#1086#1081#1089#1090#1074#1072
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 928
        Height = 278
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        DesignSize = (
          928
          278)
        object Label2: TLabel
          Left = 13
          Top = 41
          Width = 65
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1053#1072#1079#1074#1072#1085#1080#1077
        end
        object Label3: TLabel
          Left = 13
          Top = 67
          Width = 65
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1058#1080#1087
        end
        object Label1: TLabel
          Left = 540
          Top = 9
          Width = 170
          Height = 13
          AutoSize = False
          Caption = #1040#1076#1088#1077#1089' '#1086#1089#1085#1086#1074#1085#1086#1075#1086' '#1088#1072#1089#1087#1086#1083#1086#1078#1077#1085#1080#1103
        end
        object Label6: TLabel
          Left = 13
          Top = 14
          Width = 65
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1056#1077#1075'.'#1085#1086#1084#1077#1088
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dbeAccName: TDBEditEh
          Left = 86
          Top = 38
          Width = 372
          Height = 19
          AlwaysShowBorder = True
          DataField = 'NAME'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Flat = True
          TabOrder = 1
          Visible = True
        end
        object lcbAccType: TDBLookupComboboxEh
          Left = 86
          Top = 64
          Width = 372
          Height = 19
          AlwaysShowBorder = True
          DataField = 'ACCOUNT_TYPE'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Flat = True
          KeyField = 'ID'
          ListField = 'ACCTYPE'
          ListSource = dsc_AccTypes
          TabOrder = 2
          Visible = True
          OnChange = lcbAccTypeChange
        end
        object dbeAccAddress: TDBEditEh
          Left = 540
          Top = 27
          Width = 370
          Height = 56
          TabStop = False
          AlwaysShowBorder = True
          Anchors = [akLeft, akTop, akRight]
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'MAIN_ADDRESS'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 3
          Visible = True
          WordWrap = True
        end
        object dbeAccNumber: TDBEditEh
          Left = 86
          Top = 12
          Width = 372
          Height = 19
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          Ctl3D = True
          DataField = 'ID'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          Visible = True
        end
        object gbAccOption: TGroupBox
          Left = 0
          Top = 92
          Width = 928
          Height = 186
          Align = alBottom
          Caption = ' '#1053#1072#1089#1090#1088#1086#1081#1082#1080' '#1058#1059' '
          TabOrder = 4
          Visible = False
          DesignSize = (
            928
            186)
          object Label11: TLabel
            Left = 27
            Top = 23
            Width = 283
            Height = 13
            Caption = #1055#1088#1072#1074#1080#1083#1086' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1080#1103' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '#1087#1086' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1103#1084
            WordWrap = True
          end
          object Label10: TLabel
            Left = 481
            Top = 23
            Width = 253
            Height = 13
            Caption = #1055#1088#1072#1074#1080#1083#1086' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1080#1103' '#1087#1086#1090#1077#1088#1100' '#1087#1086' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1103#1084
            WordWrap = True
          end
          object lblNocharge_action: TLabel
            Left = 28
            Top = 63
            Width = 429
            Height = 13
            Caption = 
              #1055#1088#1072#1074#1080#1083#1086' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1080#1103' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '#1085#1072' '#1076#1086#1095#1077#1088#1085#1080#1093' '#1058#1059' '#1077#1089#1083#1080' '#1085#1077' '#1091#1082#1072#1079#1072#1085#1086 +
              ' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
            WordWrap = True
          end
          object Label5: TLabel
            Left = 482
            Top = 62
            Width = 205
            Height = 13
            Caption = #1043#1088#1091#1087#1087#1072' '#1091#1089#1083#1091#1075' '#1076#1083#1103' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1080#1103' '#1087#1086#1090#1077#1088#1100
          end
          object lLost_Raspred_Src: TLabel
            Left = 482
            Top = 140
            Width = 363
            Height = 13
            Caption = 
              #1043#1088#1091#1087#1087#1072' '#1091#1089#1083#1091#1075', '#1087#1088#1086#1087#1086#1088#1094#1080#1086#1085#1072#1083#1100#1085#1086' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1102' '#1082'/'#1081' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1103#1090#1100' '#1087#1086#1090#1077#1088 +
              #1080
          end
          object Label13: TLabel
            Left = 28
            Top = 102
            Width = 322
            Height = 13
            Caption = #1055#1088#1072#1074#1080#1083#1086' '#1088#1072#1089#1095#1077#1090#1072' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '#1076#1083#1103' '#1074#1088#1077#1084#1077#1085#1085#1086' '#1089#1085#1103#1090#1099#1093' '#1089#1095#1077#1090#1095#1080#1082#1086#1074
            WordWrap = True
          end
          object Label14: TLabel
            Left = 482
            Top = 102
            Width = 231
            Height = 13
            Caption = #1055#1088#1086#1087#1086#1088#1094#1080#1086#1085#1072#1083#1100#1085#1086' '#1095#1077#1084#1091' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1103#1090#1100' '#1087#1086#1090#1077#1088#1080
            WordWrap = True
          end
          object lcbAccRaspredType: TDBLookupComboboxEh
            Left = 86
            Top = 39
            Width = 373
            Height = 19
            AlwaysShowBorder = True
            DataField = 'RASPRED_TYPE'
            DataSource = dsc_Accpoint
            EditButtons = <>
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dsc_AccRaspredType
            TabOrder = 0
            Visible = True
          end
          object lcbNocharge_action: TDBComboBoxEh
            Left = 86
            Top = 78
            Width = 373
            Height = 19
            AlwaysShowBorder = True
            DataField = 'NOCHARGE_ACTION'
            DataSource = dsc_Accpoint
            EditButtons = <>
            Flat = True
            Items.Strings = (
              #1056#1072#1089#1087#1088#1077#1076#1077#1083#1103#1077#1084' '#1082#1072#1082' '#1073#1077#1079' '#1089#1095#1077#1090#1095#1080#1082#1072
              #1053#1072#1095#1080#1089#1083#1103#1077#1084' '#1087#1086' '#1089#1088#1077#1076#1085#1077#1084#1091
              #1053#1072#1095#1080#1089#1083#1103#1077#1084' '#1087#1086' '#1085#1086#1088#1084#1077
              #1048#1089#1082#1083#1102#1095#1072#1077#1084' '#1080#1079' '#1086#1073#1097#1077#1075#1086' '#1088#1072#1089#1095#1077#1090#1072)
            KeyItems.Strings = (
              '0'
              '1'
              '2'
              '3')
            TabOrder = 1
            Visible = True
          end
          object lcbLost_Raspred_Group: TDBLookupComboboxEh
            Left = 540
            Top = 78
            Width = 373
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'LOST_RASPRED_GROUP'
            DataSource = dsc_Accpoint
            DropDownBox.Sizable = True
            DropDownBox.SpecRow.CellsText = #1059#1089#1083#1091#1075#1072' '#1090#1086#1095#1082#1080' '#1091#1095#1077#1090#1072
            DropDownBox.SpecRow.Visible = True
            EditButtons = <>
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dsc_Group
            TabOrder = 3
            Visible = True
          end
          object lcbLost_Raspred_Src: TDBLookupComboboxEh
            Left = 540
            Top = 156
            Width = 373
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'LOST_RASPERD_SOURCE'
            DataSource = dsc_Accpoint
            DropDownBox.Sizable = True
            DropDownBox.SpecRow.CellsText = #1059#1089#1083#1091#1075#1072' '#1090#1086#1095#1082#1080' '#1091#1095#1077#1090#1072
            DropDownBox.SpecRow.Visible = True
            EditButtons = <>
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dsc_GroupLostSrc
            TabOrder = 5
            Visible = True
          end
          object lcbNo_active_meter_action: TDBComboBoxEh
            Left = 86
            Top = 117
            Width = 373
            Height = 19
            AlwaysShowBorder = True
            DataField = 'NO_ACTIVE_METER_ACTION'
            DataSource = dsc_Accpoint
            EditButtons = <>
            Flat = True
            Items.Strings = (
              
                #1055#1086' '#1089#1088#1077#1076#1085#1077#1084#1091' '#1079#1072' '#1087#1086#1089#1083#1077#1076#1085#1080#1077' '#1087#1086#1083'-'#1075#1086#1076#1072', '#1085#1086' '#1085#1077' '#1073#1086#1083#1077#1077' '#1087#1077#1088#1080#1086#1076#1072' '#1087#1086#1090#1088#1077#1073#1083#1077#1085 +
                #1080#1103
              #1042' '#1088#1072#1079#1084#1077#1088#1077' '#1086#1073#1098#1077#1084#1072' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '#1090#1086#1075#1086' '#1078#1077' '#1087#1077#1088#1080#1086#1076#1072' '#1087#1088#1077#1076#1099#1076#1091#1097#1077#1075#1086' '#1075#1086#1076#1072
              #1042' '#1088#1072#1079#1084#1077#1088#1077' '#1085#1086#1088#1084#1072#1090#1080#1074#1072' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103
              #1057#1095#1080#1090#1072#1090#1100' '#1077#1075#1086' '#1091#1089#1090#1072#1085#1086#1074#1083#1077#1085#1085#1099#1084
              #1057#1095#1080#1090#1072#1090#1100' '#1077#1075#1086' '#1089#1085#1103#1090#1099#1084)
            KeyItems.Strings = (
              '0'
              '1'
              '2'
              '3'
              '4')
            TabOrder = 2
            Visible = True
          end
          object lcbLost_raspred_type: TDBComboBoxEh
            Left = 540
            Top = 117
            Width = 373
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'LOST_RASPRED_TYPE'
            DataSource = dsc_Accpoint
            EditButtons = <>
            Flat = True
            Items.Strings = (
              #1055#1088#1086#1087#1086#1088#1094#1080#1086#1085#1072#1083#1100#1085#1086' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1102' '#1085#1072' '#1074#1099#1073#1088#1072#1085#1085#1086#1081' '#1091#1089#1083#1091#1075#1077
              #1055#1088#1086#1087#1086#1088#1094#1080#1086#1085#1072#1083#1100#1085#1086' '#1086#1073#1097#1077#1081' '#1087#1083#1086#1097#1072#1076#1080' '#1072#1073#1086#1085#1077#1085#1090#1086#1074
              
                #1055#1088#1086#1087#1086#1088#1094#1080#1086#1085#1072#1083#1100#1085#1086' '#1095#1077#1083#1086#1074#1077#1082#1086'-'#1076#1085#1103#1084' '#1087#1088#1086#1078#1080#1074#1072#1085#1080#1103' '#1075#1088#1072#1078#1076#1072#1085' '#1074' '#1087#1086#1084#1077#1097#1077#1085#1080#1103#1093' '#1072#1073 +
                #1086#1085#1077#1085#1090#1072
              #1056#1072#1074#1085#1086#1084#1077#1088#1085#1086' '#1085#1072' '#1074#1089#1077#1093' '#1072#1073#1086#1085#1077#1085#1090#1086#1074)
            KeyItems.Strings = (
              '0'
              '1'
              '2'
              '3')
            TabOrder = 4
            Visible = True
            OnChange = lcbLost_raspred_typeChange
          end
          object lcbLost_raspred: TDBLookupComboboxEh
            Left = 540
            Top = 38
            Width = 373
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'LOST_RASPRED'
            DataSource = dsc_Accpoint
            DropDownBox.Sizable = True
            EditButtons = <>
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListFieldIndex = 1
            ListSource = dsc_AccLostRaspredType
            TabOrder = 6
            Visible = True
          end
        end
      end
      object PageControl2: TPageControl
        Left = 0
        Top = 278
        Width = 928
        Height = 244
        ActivePage = tsAccMeters
        Align = alClient
        Style = tsFlatButtons
        TabOrder = 1
        object tsAccMeters: TTabSheet
          Caption = #1055#1088#1080#1073#1086#1088#1099' '#1091#1095#1077#1090#1072
          object ToolBar2: TToolBar
            Left = 0
            Top = 0
            Width = 920
            Height = 24
            Caption = 'ToolBar2'
            EdgeBorders = []
            Flat = True
            Images = MAIN.ImageList
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            object ToolButton5: TToolButton
              Left = 0
              Top = 0
              Action = aMeterAdd
            end
            object ToolButton6: TToolButton
              Left = 23
              Top = 0
              Action = aMeterEdit
            end
            object ToolButton15: TToolButton
              Left = 46
              Top = 0
              Action = aMeterDismount
            end
            object ToolButton7: TToolButton
              Left = 69
              Top = 0
              Width = 8
              Caption = 'ToolButton7'
              ImageIndex = 2
              Style = tbsSeparator
            end
            object ToolButton25: TToolButton
              Left = 77
              Top = 0
              Action = aMeterDel
            end
            object ToolButton26: TToolButton
              Left = 100
              Top = 0
              Width = 8
              Caption = 'ToolButton26'
              ImageIndex = 4
              Style = tbsSeparator
            end
            object ToolButton8: TToolButton
              Left = 108
              Top = 0
              Action = aMeterSetInd
            end
            object ToolButton9: TToolButton
              Left = 131
              Top = 0
              Width = 8
              Caption = 'ToolButton9'
              ImageIndex = 3
              Style = tbsSeparator
            end
            object cbAccMeterShowAll: TDBCheckBoxEh
              Left = 139
              Top = 0
              Width = 290
              Height = 22
              Action = aMeterShowAll
              AlwaysShowBorder = True
              Flat = True
              TabOrder = 0
              ValueChecked = 'True'
              ValueUnchecked = 'False'
            end
          end
          object dbgAccMeters: TDBGridEh
            Left = 0
            Top = 24
            Width = 920
            Height = 189
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dsc_AccMeter
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            PopupMenu = pmMeters
            RowDetailPanel.Color = clBtnFace
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            OnDblClick = dbgAccMetersDblClick
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'TYPE_NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CAPACITY'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'PRECIS'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'METER_NUM'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'MOUNT_DATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'MOUNT_METERIND'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'VERIFY_DATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'ACTNO'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SEAL'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'MANFDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'LS'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DISMOINT_DATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DISMOUNT_IND'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DIRECTION'
                Footers = <>
                KeyList.Strings = (
                  '-1'
                  '1')
                PickList.Strings = (
                  #1054#1073#1088#1072#1090#1085#1086#1077
                  #1055#1088#1103#1084#1086#1077)
              end
              item
                EditButtons = <>
                FieldName = 'NOTE'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
        end
        object tsAccHeatCalc: TTabSheet
          Caption = #1058#1077#1087#1083#1086#1074#1099#1095#1080#1089#1083#1080#1090#1077#1083#1100
          ImageIndex = 1
          object DBImage1: TDBImage
            Left = 0
            Top = 0
            Width = 920
            Height = 213
            Align = alClient
            TabOrder = 0
          end
        end
      end
      object GroupBox9: TGroupBox
        Left = 0
        Top = 522
        Width = 928
        Height = 68
        Align = alBottom
        Caption = ' '#1057#1083#1091#1078#1077#1073#1085#1099#1077' '#1076#1072#1085#1085#1099#1077' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object Label26: TLabel
          Left = 28
          Top = 19
          Width = 37
          Height = 13
          Alignment = taRightJustify
          Caption = #1057#1086#1079#1076#1072#1083
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label27: TLabel
          Left = 265
          Top = 19
          Width = 77
          Height = 13
          Alignment = taRightJustify
          Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label28: TLabel
          Left = 19
          Top = 43
          Width = 46
          Height = 13
          Alignment = taRightJustify
          Caption = #1048#1079#1084#1077#1085#1080#1083
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label29: TLabel
          Left = 257
          Top = 43
          Width = 85
          Height = 13
          Alignment = taRightJustify
          Caption = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label42: TLabel
          Left = 516
          Top = 19
          Width = 17
          Height = 13
          Alignment = taRightJustify
          Caption = #1048#1044
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dbeCreater: TDBEditEh
          Left = 72
          Top = 16
          Width = 173
          Height = 19
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          Ctl3D = True
          DataField = 'CREATER'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          Visible = True
        end
        object dbeModifier: TDBEditEh
          Left = 72
          Top = 40
          Width = 173
          Height = 19
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          Ctl3D = True
          DataField = 'MODIFIER'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Visible = True
        end
        object dteModifyDate: TDBDateTimeEditEh
          Left = 349
          Top = 40
          Width = 121
          Height = 19
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'MODIFYDATE'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
          Visible = True
        end
        object dteCreateDate: TDBDateTimeEditEh
          Left = 349
          Top = 16
          Width = 121
          Height = 19
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'CREATEDATE'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
          Visible = True
        end
        object dbeID: TDBEditEh
          Left = 540
          Top = 16
          Width = 121
          Height = 19
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          Ctl3D = True
          DataField = 'ID'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 4
          Visible = True
        end
      end
    end
    object tsDogovors: TTabSheet
      Caption = #1055#1086#1076#1082#1083#1102#1095#1077#1085#1085#1099#1077' '#1076#1086#1075#1086#1074#1086#1088#1099
      ImageIndex = 1
      object ToolBar3: TToolBar
        Left = 0
        Top = 0
        Width = 928
        Height = 26
        ButtonHeight = 25
        ButtonWidth = 27
        Caption = 'ToolBar2'
        EdgeBorders = []
        Flat = True
        Images = MAIN.ImageList
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        object ToolButton10: TToolButton
          Left = 0
          Top = 0
          Action = aDog2AccAdd
        end
        object ToolButton13: TToolButton
          Left = 27
          Top = 0
          Action = aDog2AccDel
        end
        object ToolButton12: TToolButton
          Left = 54
          Top = 0
          Width = 8
          Caption = 'ToolButton7'
          ImageIndex = 2
          Style = tbsSeparator
        end
        object Panel5: TPanel
          Left = 62
          Top = 0
          Width = 219
          Height = 25
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 1
          object Label4: TLabel
            Left = 7
            Top = 6
            Width = 104
            Height = 14
            AutoSize = False
            Caption = '  '#1057#1086#1089#1090#1086#1103#1085#1080#1077' '#1085#1072' '#1076#1072#1090#1091'  '
          end
          object dteDdate: TDBDateTimeEditEh
            Left = 114
            Top = 3
            Width = 95
            Height = 19
            AlwaysShowBorder = True
            EditButtons = <>
            Flat = True
            Kind = dtkDateEh
            ShowHint = True
            TabOrder = 0
            Visible = True
            OnExit = dteDdateExit
          end
        end
        object ToolButton11: TToolButton
          Left = 281
          Top = 0
          Caption = 'ToolButton11'
          ImageIndex = 11
          OnClick = ToolButton11Click
        end
        object ToolButton14: TToolButton
          Left = 308
          Top = 0
          Width = 8
          Caption = 'ToolButton9'
          ImageIndex = 3
          Style = tbsSeparator
        end
        object cbAccDogovorsShowAll: TDBCheckBoxEh
          Left = 316
          Top = 0
          Width = 328
          Height = 25
          Action = aDog2AccShowAll
          AlwaysShowBorder = True
          Flat = True
          TabOrder = 0
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
      end
      object dbgAccDogovors: TDBGridEh
        Left = 0
        Top = 26
        Width = 928
        Height = 564
        Align = alClient
        AllowedOperations = []
        ColumnDefValues.Title.TitleButton = True
        Constraints.MinHeight = 200
        DataGrouping.GroupLevels = <>
        DataSource = dsc_AccDogovors
        EditActions = [geaCopyEh]
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        RowDetailPanel.Color = clBtnFace
        SortLocal = True
        SumList.Active = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        OnKeyUp = dbgAccDogovorsKeyUp
        OnSortMarkingChanged = dbgAccDogovorsSortMarkingChanged
        Columns = <
          item
            EditButtons = <>
            FieldName = 'G_LICSCHET'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ADDRESS'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'METER_EXIST'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RBDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'REDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RLEVEL'
            Footers = <>
            Width = 71
          end
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RACC2ACC_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'RACCPOINT_ID'
            Footers = <>
            Visible = False
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    object tsCascading: TTabSheet
      Caption = #1050#1072#1089#1082#1072#1076#1080#1088#1086#1074#1072#1085#1080#1077
      ImageIndex = 2
      object GroupBox3: TGroupBox
        Left = 0
        Top = 53
        Width = 928
        Height = 537
        Align = alClient
        Caption = ' '#1044#1086#1095#1077#1088#1085#1080#1077' '#1090#1086#1095#1082#1080' '#1091#1095#1077#1090#1072' '
        TabOrder = 0
        object ToolBar4: TToolBar
          Left = 2
          Top = 15
          Width = 924
          Height = 26
          ButtonHeight = 25
          ButtonWidth = 27
          Caption = 'ToolBar2'
          EdgeBorders = []
          Flat = True
          Images = MAIN.ImageList
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          object ToolButton16: TToolButton
            Left = 0
            Top = 0
            Action = aChildAccAdd
          end
          object ToolButton17: TToolButton
            Left = 27
            Top = 0
            Width = 8
            Caption = 'ToolButton7'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton18: TToolButton
            Left = 35
            Top = 0
            Action = aChildAccDel
          end
          object ToolButton24: TToolButton
            Left = 62
            Top = 0
            Width = 8
            Caption = 'ToolButton24'
            ImageIndex = 3
            Style = tbsSeparator
          end
          object Panel4: TPanel
            Left = 70
            Top = 0
            Width = 284
            Height = 25
            BevelInner = bvRaised
            BevelOuter = bvLowered
            TabOrder = 0
            object Label9: TLabel
              Left = 8
              Top = 6
              Width = 47
              Height = 13
              Caption = #1055#1077#1088#1080#1086#1076' '#1089
            end
            object Label7: TLabel
              Left = 162
              Top = 6
              Width = 12
              Height = 13
              Caption = #1087#1086
            end
            object dbdeChildPotrBdate: TDBDateTimeEditEh
              Left = 60
              Top = 3
              Width = 95
              Height = 19
              AlwaysShowBorder = True
              EditButtons = <>
              Flat = True
              Kind = dtkDateEh
              ShowHint = True
              TabOrder = 0
              Visible = True
            end
            object dbdeChildPotrEdate: TDBDateTimeEditEh
              Left = 180
              Top = 3
              Width = 95
              Height = 19
              AlwaysShowBorder = True
              EditButtons = <>
              Flat = True
              Kind = dtkDateEh
              ShowHint = True
              TabOrder = 1
              Visible = True
            end
          end
          object ToolButton28: TToolButton
            Left = 354
            Top = 0
            Caption = 'ToolButton28'
            ImageIndex = 11
            OnClick = ToolButton28Click
          end
        end
        object dbgChildAcc: TDBGridEh
          Left = 2
          Top = 41
          Width = 924
          Height = 494
          Align = alClient
          AllowedOperations = []
          ColumnDefValues.Title.TitleButton = True
          Constraints.MinHeight = 200
          DataGrouping.GroupLevels = <>
          DataSource = dsc_ChildAcc
          EditActions = [geaCopyEh]
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          RowDetailPanel.Color = clBtnFace
          SortLocal = True
          SumList.Active = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          OnSortMarkingChanged = dbgAccDogovorsSortMarkingChanged
          Columns = <
            item
              EditButtons = <>
              FieldName = 'ID'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'ACCTYPE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'SRV_NAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'NAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RBDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'REDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'TOWN'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'STREET'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'APPARTS'
              Footers = <>
              Width = 94
            end
            item
              EditButtons = <>
              FieldName = 'MAX'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 928
        Height = 53
        Align = alTop
        Caption = ' '#1056#1086#1076#1080#1090#1077#1083#1100#1089#1082#1072#1103' '#1090#1086#1095#1082#1072' '#1091#1095#1077#1090#1072' '
        TabOrder = 1
        DesignSize = (
          928
          53)
        object Label8: TLabel
          Left = 14
          Top = 24
          Width = 92
          Height = 13
          Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1080' '#1072#1076#1088#1077#1089
        end
        object dbeParentAddress: TDBEditEh
          Left = 112
          Top = 22
          Width = 628
          Height = 19
          AlwaysShowBorder = True
          Anchors = [akLeft, akTop, akRight]
          DataField = 'PARENT_ADDRESS'
          DataSource = dsc_Accpoint
          EditButtons = <>
          Flat = True
          TabOrder = 0
          Visible = True
        end
        object Button1: TButton
          Left = 753
          Top = 20
          Width = 75
          Height = 25
          Action = aParentAccSet
          Anchors = [akTop, akRight]
          Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100
          TabOrder = 1
        end
        object Button2: TButton
          Left = 833
          Top = 20
          Width = 75
          Height = 25
          Action = aParentAccClear
          Anchors = [akTop, akRight]
          Caption = #1054#1095#1080#1089#1090#1080#1090#1100
          TabOrder = 2
        end
      end
    end
    object tsActs: TTabSheet
      Caption = #1040#1082#1090#1099
      ImageIndex = 3
      OnShow = tsActsShow
      object Splitter1: TSplitter
        Left = 443
        Top = 0
        Height = 590
        MinSize = 350
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 0
        Width = 443
        Height = 590
        Align = alLeft
        Caption = ' '#1040#1082#1090#1099' '#1087#1086#1082#1072#1079#1072#1085#1080#1081'/'#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1081' '
        TabOrder = 0
        object ToolBar5: TToolBar
          Left = 2
          Top = 15
          Width = 439
          Height = 24
          Caption = 'ToolBar2'
          EdgeBorders = []
          Flat = True
          Images = MAIN.ImageList
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          object ToolButton19: TToolButton
            Left = 0
            Top = 0
            Action = aActAdd
          end
          object ToolButton20: TToolButton
            Left = 23
            Top = 0
            Action = aActEdit
          end
          object ToolButton21: TToolButton
            Left = 46
            Top = 0
            Width = 8
            Caption = 'ToolButton7'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton22: TToolButton
            Left = 54
            Top = 0
            Action = aActDel
          end
          object ToolButton23: TToolButton
            Left = 77
            Top = 0
            Width = 8
            Caption = 'ToolButton9'
            ImageIndex = 3
            Style = tbsSeparator
          end
          object ToolButton36: TToolButton
            Left = 85
            Top = 0
            Action = aActChargeCalc
          end
          object ToolButton35: TToolButton
            Left = 108
            Top = 0
            Width = 8
            Caption = 'ToolButton35'
            ImageIndex = 13
            Style = tbsSeparator
          end
          object ToolButton38: TToolButton
            Left = 116
            Top = 0
            Action = aShowDecodeRaspred
          end
          object ToolButton39: TToolButton
            Left = 139
            Top = 0
            Width = 8
            Caption = 'ToolButton39'
            ImageIndex = 14
            Style = tbsSeparator
          end
          object cbPotrActsShowAll: TDBCheckBoxEh
            Left = 147
            Top = 0
            Width = 142
            Height = 22
            AlwaysShowBorder = True
            Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1091#1076#1072#1083#1077#1085#1085#1099#1077
            Flat = True
            TabOrder = 0
            ValueChecked = 'True'
            ValueUnchecked = 'False'
            OnClick = cbPotrActsShowAllClick
          end
        end
        object dbgPotrActs: TDBGridEh
          Left = 2
          Top = 39
          Width = 439
          Height = 549
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_PotrActs
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          PopupMenu = pmActs
          RowDetailPanel.Color = clBtnFace
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          OnDblClick = dbgPotrActsDblClick
          Columns = <
            item
              EditButtons = <>
              FieldName = 'ID'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'ACCTYPE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'ACT_DATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'BDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'EDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'CREATER'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'CREATEDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'MODIFIER'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'MODIFYDATE'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
      object Panel3: TPanel
        Left = 446
        Top = 0
        Width = 482
        Height = 590
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel3'
        TabOrder = 1
        object GroupBox5: TGroupBox
          Left = 0
          Top = 0
          Width = 482
          Height = 197
          Align = alTop
          Caption = ' '#1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1088#1080#1073#1086#1088#1086#1074' '#1091#1095#1077#1090#1072' '
          TabOrder = 0
          object dbgMeterInd: TDBGridEh
            Left = 2
            Top = 39
            Width = 478
            Height = 156
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dsc_MeterInd
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            PopupMenu = pmActMeterInd
            RowDetailPanel.Color = clBtnFace
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            OnGetCellParams = dbgMeterIndGetCellParams
            Columns = <
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'METER_NUM'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'PH'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATER'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'ADDRESS'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
          object ToolBar6: TToolBar
            Left = 2
            Top = 15
            Width = 478
            Height = 24
            Caption = 'ToolBar2'
            EdgeBorders = []
            Flat = True
            Images = MAIN.ImageList
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            object ToolButton27: TToolButton
              Left = 0
              Top = 0
              Action = aIndAdd
            end
            object ToolButton29: TToolButton
              Left = 23
              Top = 0
              Width = 8
              Caption = 'ToolButton7'
              ImageIndex = 2
              Style = tbsSeparator
            end
            object ToolButton30: TToolButton
              Left = 31
              Top = 0
              Action = aIndDel
            end
            object ToolButton37: TToolButton
              Left = 54
              Top = 0
              Width = 8
              Caption = 'ToolButton37'
              ImageIndex = 3
              Style = tbsSeparator
            end
            object cbMeterIndShowDel: TDBCheckBoxEh
              Left = 62
              Top = 0
              Width = 142
              Height = 22
              AlwaysShowBorder = True
              Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1091#1076#1072#1083#1077#1085#1085#1099#1077
              Flat = True
              TabOrder = 0
              ValueChecked = 'True'
              ValueUnchecked = 'False'
            end
          end
        end
        object GroupBox7: TGroupBox
          Left = 0
          Top = 197
          Width = 482
          Height = 393
          Align = alClient
          Caption = ' '#1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '#1087#1086' '#1072#1082#1090#1091' '
          TabOrder = 1
          object dbgActPotrs: TDBGridEh
            Left = 2
            Top = 39
            Width = 478
            Height = 352
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dsc_ActPotrs
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            PopupMenu = pmActPotr
            RowDetailPanel.Active = True
            RowDetailPanel.ActiveControl = dbgActPotrsDetail
            RowDetailPanel.BorderStyle = bsNone
            RowDetailPanel.Color = clBtnFace
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            OnDblClick = dbgActPotrsDblClick
            OnKeyUp = dbgActPotrsKeyUp
            OnAfterRowDetailPanelHide = dbgActPotrsAfterRowDetailPanelHide
            OnAfterRowDetailPanelShow = dbgActPotrsAfterRowDetailPanelShow
            Columns = <
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'POTR'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATER'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SUM_DOGOVORS_POTR'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CHILD_METER_POTRS'
                Footers = <>
                Width = 128
              end>
            object RowDetailData: TRowDetailPanelControlEh
              object dbgActPotrsDetail: TDBGridEh
                Left = 0
                Top = 0
                Width = 457
                Height = 120
                Align = alClient
                DataGrouping.GroupLevels = <>
                DataSource = dsc_ActPotrsDetail
                Flat = True
                FooterColor = clWindow
                FooterFont.Charset = DEFAULT_CHARSET
                FooterFont.Color = clWindowText
                FooterFont.Height = -11
                FooterFont.Name = 'MS Sans Serif'
                FooterFont.Style = []
                Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                PopupMenu = pmActPotr
                RowDetailPanel.Color = clBtnFace
                TabOrder = 0
                TitleFont.Charset = DEFAULT_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -11
                TitleFont.Name = 'MS Sans Serif'
                TitleFont.Style = []
                UseMultiTitle = True
                VTitleMargin = 5
                OnKeyUp = dbgActPotrsDetailKeyUp
                Columns = <
                  item
                    EditButtons = <>
                    FieldName = 'ADDRESS'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'LOST'
                    Footers = <>
                    Width = 80
                  end
                  item
                    EditButtons = <>
                    FieldName = 'NAME'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'SHARED_ACT'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'SUM'
                    Footers = <>
                    Width = 81
                  end>
                object RowDetailData: TRowDetailPanelControlEh
                end
              end
            end
          end
          object ToolBar7: TToolBar
            Left = 2
            Top = 15
            Width = 478
            Height = 24
            Caption = 'ToolBar2'
            EdgeBorders = []
            Flat = True
            Images = MAIN.ImageList
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            object ToolButton33: TToolButton
              Left = 0
              Top = 0
              Action = aActPotrAdd
            end
            object ToolButton31: TToolButton
              Left = 23
              Top = 0
              Action = aActPotrCalc
            end
            object ToolButton32: TToolButton
              Left = 46
              Top = 0
              Width = 8
              Caption = 'ToolButton32'
              ImageIndex = 3
              Style = tbsSeparator
            end
            object ToolButton34: TToolButton
              Left = 54
              Top = 0
              Action = aActPotrDel
            end
          end
        end
      end
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 640
    Top = 2
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      Hint = #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103' '#1080' '#1074#1099#1081#1090#1080
      OnExecute = aCancelExecute
    end
    object aMeterAdd: TAction
      Category = 'Meters'
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1087#1088#1080#1073#1086#1088' '#1091#1095#1077#1090#1072
      Hint = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1087#1088#1080#1073#1086#1088' '#1091#1095#1077#1090#1072
      ImageIndex = 9
      OnExecute = aMeterAddExecute
    end
    object aMeterEdit: TAction
      Category = 'Meters'
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1073#1086#1088' '#1091#1095#1077#1090#1072
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1073#1086#1088' '#1091#1095#1077#1090#1072
      ImageIndex = 5
      OnExecute = aMeterEditExecute
    end
    object aMeterDel: TAction
      Category = 'Meters'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1086#1096#1080#1073#1086#1095#1085#1099#1081' '#1087#1088#1080#1073#1086#1088' '#1091#1095#1077#1090#1072
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1086#1096#1080#1073#1086#1095#1085#1099#1081' '#1087#1088#1080#1073#1086#1088' '#1091#1095#1077#1090#1072
      ImageIndex = 2
      OnExecute = aMeterDelExecute
    end
    object aMeterShowAll: TAction
      Category = 'Meters'
      Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1074#1089#1077' '#1087#1088#1080#1073#1086#1088#1099' '#1091#1095#1077#1090#1072', '#1074#1082#1083#1102#1095#1072#1103' '#1085#1077#1072#1082#1090#1080#1074#1085#1099#1077
      Hint = #1055#1086#1082#1072#1079#1072#1090#1100' '#1074#1089#1077' '#1087#1088#1080#1073#1086#1088#1099' '#1091#1095#1077#1090#1072', '#1074#1082#1083#1102#1095#1072#1103' '#1085#1077#1072#1082#1090#1080#1074#1085#1099#1077
      ImageIndex = 8
      OnExecute = cbAccMeterShowAllClick
    end
    object aDog2AccAdd: TAction
      Category = 'Dogovors'
      Caption = #1055#1088#1080#1074#1103#1079#1072#1090#1100' '#1076#1086#1075#1086#1074#1086#1088' '#1082' '#1090#1086#1095#1082#1077' '#1091#1095#1077#1090#1072
      Hint = #1055#1088#1080#1074#1103#1079#1072#1090#1100' '#1076#1086#1075#1086#1074#1086#1088' '#1082' '#1090#1086#1095#1082#1077' '#1091#1095#1077#1090#1072
      ImageIndex = 9
      OnExecute = aDog2AccAddExecute
    end
    object aDog2AccDel: TAction
      Category = 'Dogovors'
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1091#1102' '#1058#1059' '#1086#1090' '#1090#1077#1082#1091#1097#1077#1081
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1091#1102' '#1058#1059' '#1086#1090' '#1090#1077#1082#1091#1097#1077#1081
      ImageIndex = 2
      OnExecute = aDog2AccDelExecute
    end
    object aDog2AccShowAll: TAction
      Category = 'Dogovors'
      Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1074#1089#1077' '#1089#1074#1103#1079#1072#1085#1085#1099#1077' '#1076#1086#1075#1086#1074#1086#1088#1099', '#1074#1082#1083#1102#1095#1072#1103' '#1085#1077#1072#1082#1090#1080#1074#1085#1099#1077
      Hint = #1055#1086#1082#1072#1079#1072#1090#1100' '#1074#1089#1077' '#1089#1074#1103#1079#1072#1085#1085#1099#1077' '#1076#1086#1075#1086#1074#1086#1088#1099', '#1074#1082#1083#1102#1095#1072#1103' '#1085#1077#1072#1082#1090#1080#1074#1085#1099#1077
      ImageIndex = 8
      OnExecute = cbAccDogovorsShowAllClick
    end
    object aParentAccSet: TAction
      Category = 'Cascade'
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1087#1088#1080#1074#1103#1079#1082#1091' '#1082' '#1088#1086#1076#1080#1090#1077#1083#1100#1089#1082#1086#1081' '#1090#1086#1095#1082#1077' '#1091#1095#1077#1090#1072
      Hint = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1087#1088#1080#1074#1103#1079#1082#1091' '#1082' '#1088#1086#1076#1080#1090#1077#1083#1100#1089#1082#1086#1081' '#1090#1086#1095#1082#1077' '#1091#1095#1077#1090#1072
      ImageIndex = 5
      OnExecute = aParentAccSetExecute
    end
    object aParentAccClear: TAction
      Category = 'Cascade'
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1058#1059
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1058#1059' '#1086#1090' '#1088#1086#1076#1080#1090#1077#1083#1100#1089#1082#1086#1081
      ImageIndex = 2
      OnExecute = aParentAccClearExecute
    end
    object aChildAccAdd: TAction
      Category = 'Cascade'
      Caption = #1057#1076#1077#1083#1072#1090#1100' '#1076#1086#1095#1077#1088#1085#1077#1081' '#1089#1091#1097#1077#1089#1090#1074#1091#1102#1097#1091#1102' '#1090#1086#1095#1082#1091' '#1091#1095#1077#1090#1072
      Hint = #1057#1076#1077#1083#1072#1090#1100' '#1076#1086#1095#1077#1088#1085#1077#1081' '#1089#1091#1097#1077#1089#1090#1074#1091#1102#1097#1091#1102' '#1090#1086#1095#1082#1091' '#1091#1095#1077#1090#1072
      ImageIndex = 9
      OnExecute = aChildAccAddExecute
    end
    object aChildAccDel: TAction
      Category = 'Cascade'
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1076#1086#1095#1077#1088#1085#1102#1102' '#1058#1059
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1076#1086#1095#1077#1088#1085#1102#1102' '#1058#1059' '#1086#1090' '#1088#1086#1076#1080#1090#1077#1083#1100#1089#1082#1086#1081
      ImageIndex = 2
      OnExecute = aChildAccDelExecute
    end
    object aActAdd: TAction
      Category = 'Acts'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1072#1082#1090' '#1089#1085#1103#1090#1080#1103' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1072#1082#1090' '#1089#1085#1103#1090#1080#1103' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      ImageIndex = 9
      OnExecute = aActAddExecute
    end
    object aActEdit: TAction
      Category = 'Acts'
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1072#1082#1090' '#1089#1085#1103#1090#1080#1103' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1072#1082#1090' '#1089#1085#1103#1090#1080#1103' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      ImageIndex = 5
      OnExecute = aActEditExecute
    end
    object aActDel: TAction
      Category = 'Acts'
      Caption = #1040#1085#1091#1083#1080#1088#1086#1074#1072#1090#1100' '#1072#1082#1090' '#1089#1085#1103#1090#1080#1103' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      Hint = #1040#1085#1091#1083#1080#1088#1086#1074#1072#1090#1100' '#1072#1082#1090' '#1089#1085#1103#1090#1080#1103' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      ImageIndex = 2
      OnExecute = aActDelExecute
    end
    object aActPotrCalc: TAction
      Category = 'Acts'
      Caption = #1056#1072#1089#1095#1077#1090'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1081' '#1087#1086' '#1087#1086#1082#1072#1079#1072#1085#1080#1103#1084
      Hint = #1056#1072#1089#1095#1077#1090'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1081' '#1087#1086' '#1087#1086#1082#1072#1079#1072#1085#1080#1103#1084
      ImageIndex = 12
      OnExecute = aActPotrCalcExecute
    end
    object aActChargeCalc: TAction
      Category = 'Acts'
      Caption = #1056#1072#1089#1095#1077#1090'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1081' '#1087#1086' '#1072#1082#1090#1091
      Hint = #1056#1072#1089#1095#1077#1090'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1081' '#1087#1086' '#1072#1082#1090#1091
      ImageIndex = 12
      OnExecute = aActChargeCalcExecute
    end
    object aActPotrDel: TAction
      Category = 'Acts'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1077' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '#1087#1086' '#1072#1082#1090#1091
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1077' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '#1087#1086' '#1072#1082#1090#1091
      ImageIndex = 2
      OnExecute = aActPotrDelExecute
    end
    object aHeatCounterCreate: TAction
      Category = 'Meters'
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1090#1077#1087#1083#1086#1074#1099#1095#1080#1089#1083#1080#1090#1077#1083#1100
      Hint = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1090#1077#1087#1083#1086#1074#1099#1095#1080#1089#1083#1080#1090#1077#1083#1100
    end
    object aHeatCounterEdit: TAction
      Category = 'Meters'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1089#1074#1086#1081#1089#1090#1074#1072' '#1090#1077#1087#1083#1086#1074#1099#1095#1080#1089#1083#1080#1090#1077#1083#1103
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1089#1074#1086#1081#1089#1090#1074#1072' '#1090#1077#1087#1083#1086#1074#1099#1095#1080#1089#1083#1080#1090#1077#1083#1103
      ImageIndex = 5
    end
    object aMeterSetInd: TAction
      Category = 'Meters'
      Caption = #1047#1072#1085#1077#1089#1090#1080' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1086' '#1087#1088#1080#1073#1086#1088#1091' '#1091#1095#1077#1090#1072
      Hint = #1047#1072#1085#1077#1089#1090#1080' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1086' '#1087#1088#1080#1073#1086#1088#1091' '#1091#1095#1077#1090#1072
      ImageIndex = 12
    end
    object aIndAdd: TAction
      Category = 'Acts'
      Caption = #1047#1072#1085#1077#1089#1090#1080' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1088#1080#1073#1086#1088#1072' '#1091#1095#1077#1090#1072
      Hint = #1047#1072#1085#1077#1089#1090#1080' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1088#1080#1073#1086#1088#1072' '#1091#1095#1077#1090#1072
      ImageIndex = 9
      OnExecute = aIndAddExecute
    end
    object aIndDel: TAction
      Category = 'Acts'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1086' '#1087#1088#1080#1073#1086#1088#1091' '#1091#1095#1077#1090#1072
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1086' '#1087#1088#1080#1073#1086#1088#1091' '#1091#1095#1077#1090#1072
      ImageIndex = 2
      OnExecute = aIndDelExecute
    end
    object aActPotrAdd: TAction
      Category = 'Acts'
      Caption = #1047#1072#1085#1077#1085#1089#1077#1085#1080#1077' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1081' '#1087#1086' '#1072#1082#1090#1091
      Hint = #1047#1072#1085#1077#1085#1089#1077#1085#1080#1077' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1081' '#1087#1086' '#1072#1082#1090#1091' '#1087#1088#1080' '#1086#1090#1089#1091#1090#1089#1090#1074#1080#1080' '#1087#1088#1080#1073#1086#1088#1086#1074' '#1091#1095#1077#1090#1072
      ImageIndex = 9
      OnExecute = aActPotrAddExecute
    end
    object aShowDecodeRaspred: TAction
      Category = 'Acts'
      Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1091' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1080#1103' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103
      Hint = #1055#1086#1082#1072#1079#1072#1090#1100' '#1088#1072#1089#1096#1080#1092#1088#1086#1074#1082#1091' '#1088#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1080#1103' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103
      ImageIndex = 8
      OnExecute = aShowDecodeRaspredExecute
    end
    object aMeterDismount: TAction
      Category = 'Meters'
      Caption = #1057#1085#1103#1090#1100' '#1087#1088#1080#1073#1086#1088' '#1091#1095#1077#1090#1072
      Hint = #1057#1085#1103#1090#1100' '#1087#1088#1080#1073#1086#1088' '#1091#1095#1077#1090#1072
      ImageIndex = 22
      OnExecute = aMeterDismountExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdAccpoint'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'PageControl.tsActs.GroupBox4.<P>.Width'
      
        'PageControl.tsActs.GroupBox4.dbgPotrActs.<P>.Columns.ColumnsInde' +
        'x'
      
        'PageControl.tsActs.GroupBox4.dbgPotrActs.<P>.Columns.<ForAllItem' +
        's>.Width'
      
        'PageControl.tsActs.Panel3.GroupBox5.dbgMeterInd.<P>.Columns.Colu' +
        'mnsIndex'
      
        'PageControl.tsActs.Panel3.GroupBox5.dbgMeterInd.<P>.Columns.<For' +
        'AllItems>.Width'
      
        'PageControl.tsActs.Panel3.GroupBox7.dbgActPotrs.<P>.Columns.Colu' +
        'mnsIndex'
      
        'PageControl.tsActs.Panel3.GroupBox7.dbgActPotrs.<P>.Columns.<For' +
        'AllItems>.Width'
      
        'PageControl.tsCascading.GroupBox3.dbgChildAcc.<P>.Columns.Column' +
        'sIndex'
      
        'PageControl.tsCascading.GroupBox3.dbgChildAcc.<P>.Columns.<ForAl' +
        'lItems>.Width'
      'PageControl.tsDogovors.dbgAccDogovors.<P>.Columns.ColumnsIndex'
      
        'PageControl.tsDogovors.dbgAccDogovors.<P>.Columns.<ForAllItems>.' +
        'Width'
      
        'PageControl.tsMain.PageControl2.tsAccMeters.dbgAccMeters.<P>.Col' +
        'umns.ColumnsIndex'
      
        'PageControl.tsMain.PageControl2.tsAccMeters.dbgAccMeters.<P>.Col' +
        'umns.<ForAllItems>.Width')
    Left = 678
    Top = 2
  end
  object MainMenu1: TMainMenu
    Images = MAIN.ImageList
    Left = 602
    Top = 2
    object N1: TMenuItem
      Caption = #1054#1082#1085#1086
      object N2: TMenuItem
        Action = aSave
      end
      object N4: TMenuItem
        Action = aPrint
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object N3: TMenuItem
        Action = aCancel
      end
    end
    object N6: TMenuItem
      Caption = #1055#1088#1080#1073#1086#1088#1099' '#1091#1095#1077#1090#1072
      object N7: TMenuItem
        Action = aMeterAdd
      end
      object N8: TMenuItem
        Action = aMeterEdit
      end
      object N37: TMenuItem
        Action = aMeterSetInd
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Action = aMeterDel
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object N12: TMenuItem
        Action = aMeterShowAll
      end
    end
    object N13: TMenuItem
      Caption = #1044#1086#1075#1086#1074#1086#1088#1099
      object N14: TMenuItem
        Action = aDog2AccAdd
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object N17: TMenuItem
        Action = aDog2AccDel
      end
    end
    object N20: TMenuItem
      Caption = #1050#1072#1089#1082#1072#1076#1080#1088#1086#1074#1072#1085#1080#1077
      Visible = False
      object N21: TMenuItem
        Action = aParentAccSet
      end
      object N22: TMenuItem
        Action = aParentAccClear
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object N25: TMenuItem
        Caption = #1057#1086#1079#1076#1072#1090#1100' '#1076#1086#1095#1077#1088#1085#1102#1102' '#1090#1086#1095#1082#1091' '#1091#1095#1077#1090#1072
        Hint = #1057#1086#1079#1076#1072#1090#1100' '#1076#1086#1095#1077#1088#1085#1102#1102' '#1090#1086#1095#1082#1091' '#1091#1095#1077#1090#1072
        ImageIndex = 0
      end
      object N24: TMenuItem
        Action = aChildAccAdd
      end
      object N26: TMenuItem
        Action = aChildAccDel
      end
    end
    object N27: TMenuItem
      Caption = #1040#1082#1090#1099
      object N28: TMenuItem
        Action = aActAdd
      end
      object N29: TMenuItem
        Action = aActEdit
      end
      object N30: TMenuItem
        Action = aActDel
      end
      object N31: TMenuItem
        Caption = '-'
      end
      object N39: TMenuItem
        Action = aIndAdd
      end
      object N40: TMenuItem
        Action = aIndDel
      end
      object N41: TMenuItem
        Caption = '-'
      end
      object N42: TMenuItem
        Action = aActPotrAdd
      end
      object N32: TMenuItem
        Action = aActPotrCalc
      end
      object N43: TMenuItem
        Action = aActPotrDel
      end
      object N35: TMenuItem
        Caption = '-'
      end
      object N33: TMenuItem
        Action = aActChargeCalc
      end
    end
    object N44: TMenuItem
      Caption = #1054#1090#1095#1077#1090#1099
      OnClick = N44Click
    end
    object N45: TMenuItem
      Caption = #1055#1086#1084#1086#1097#1100
    end
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 713
    Top = 2
  end
  object ds_Accpoint: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE M_ACCPOINT'
      'SET '
      '    NAME = :NAME,'
      '    ACCOUNT_TYPE = :ACCOUNT_TYPE,'
      '    HEAT_SCHEMA = :HEAT_SCHEMA,'
      '    NOCHARGE_ACTION = :NOCHARGE_ACTION,'
      '    LOST_RASPRED = :LOST_RASPRED,'
      '    RASPRED_TYPE = :RASPRED_TYPE,'
      '    LOST_RASPRED_GROUP = :LOST_RASPRED_GROUP,'
      '    NO_ACTIVE_METER_ACTION = :NO_ACTIVE_METER_ACTION,'
      '    LOST_RASPRED_TYPE = :LOST_RASPRED_TYPE,'
      '    LOST_RASPERD_SOURCE = :LOST_RASPERD_SOURCE '
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO M_ACCPOINT('
      '    ID,'
      '    NAME,'
      '    ACCOUNT_TYPE,'
      '    HEAT_SCHEMA,'
      '    NOCHARGE_ACTION,'
      '    LOST_RASPRED,'
      '    RASPRED_TYPE,'
      '    LOST_RASPRED_GROUP,       '
      '    NO_ACTIVE_METER_ACTION,'
      '    LOST_RASPRED_TYPE,'
      '    LOST_RASPERD_SOURCE '
      ')'
      'VALUES('
      '    :ID,'
      '    :NAME,'
      '    :ACCOUNT_TYPE,'
      '    :HEAT_SCHEMA,'
      '    coalesce(:NOCHARGE_ACTION, -1), '
      '    coalesce(:LOST_RASPRED, -1), '
      '    :RASPRED_TYPE,'
      '    :LOST_RASPRED_GROUP,'
      '    :NO_ACTIVE_METER_ACTION,'
      '    :LOST_RASPRED_TYPE,'
      '    :LOST_RASPERD_SOURCE '
      ')'
      'returning id')
    RefreshSQL.Strings = (
      'select ma.id, ma.name, ma.account_type,'
      '       ma.heat_schema, ma.lost_raspred_group,'
      '       coalesce(nocharge_action, -1) as nocharge_action, '
      '       coalesce(lost_raspred, -1) as lost_raspred, '
      '       ma.raspred_type,'
      
        '       (select first(1) v.town||'#39', '#39'||v.street||'#39' '#1076'.'#39'||v.house||' +
        'coalesce('#39' '#1082'.'#39'||v.corps, '#39#39')'
      
        '          from proc_accpoint_get_childs(ma.id, current_date, cur' +
        'rent_date, 1) p'
      '          join dogovors d on d.accpoint_id = p.raccpoint_id'
      
        '          join v_abons v on d.abonent_id = v.id) as main_address' +
        ','
      ''
      
        '       (select first(1) v.town||'#39', '#39'||v.street||'#39' '#1076'.'#39'||v.house||' +
        'coalesce('#39' '#1082'.'#39'||v.corps, '#39#39')'
      
        '          from proc_accpoint_get_parents (ma.id, current_date, c' +
        'urrent_date) pp'
      
        '          left join proc_accpoint_get_childs (pp.raccpoint_id, c' +
        'urrent_date, current_date, 1) pc on pp.rlevel = 1'
      '          join dogovors d on d.accpoint_id = pc.raccpoint_id'
      
        '          join v_abons v on d.abonent_id = v.id) as parent_addre' +
        'ss,'
      ''
      '       (select first(1) pp.raccpoint_id'
      
        '          from proc_accpoint_get_parents (ma.id, current_date, c' +
        'urrent_date) pp'
      '          where rlevel = 1'
      '          order by pp.rlevel) as parent_accpoint_id,'
      ''
      '       ma.createdate,'
      
        '       (select rname from user_getfullname (ma.createuserid)) as' +
        ' creater,'
      '       ma.modifydate,'
      
        '       (select rname from user_getfullname (ma.modifyuserid)) as' +
        ' modifier,'
      '       ma.no_active_meter_action,'
      '       ma.lost_raspred_type,'
      '       ma.lost_rasperd_source  '
      ''
      '  from m_accpoint ma'
      '  where ma.id = :paccpoint_id')
    SelectSQL.Strings = (
      'select ma.id, ma.name, ma.account_type,  '
      '       ma.heat_schema, ma.lost_raspred_group,'
      '       coalesce(nocharge_action, -1) as nocharge_action, '
      '       coalesce(lost_raspred, -1) as lost_raspred, '
      '       ma.raspred_type,'
      
        '       (select first(1) v.town||'#39', '#39'||v.street||'#39' '#1076'.'#39'||v.house||' +
        'coalesce('#39' '#1082'.'#39'||v.corps, '#39#39')'
      
        '          from proc_accpoint_get_childs(ma.id, current_date, cur' +
        'rent_date, 1) p'
      '          join dogovors d on d.accpoint_id = p.raccpoint_id'
      
        '          join v_abons v on d.abonent_id = v.id) as main_address' +
        ','
      ''
      
        '       (select first(1) v.town||'#39', '#39'||v.street||'#39' '#1076'.'#39'||v.house||' +
        'coalesce('#39' '#1082'.'#39'||v.corps, '#39#39')'
      
        '          from proc_accpoint_get_parents (ma.id, current_date, c' +
        'urrent_date) pp'
      
        '          left join proc_accpoint_get_childs (pp.raccpoint_id, c' +
        'urrent_date, current_date, 1) pc on pp.rlevel = 1'
      '          join dogovors d on d.accpoint_id = pc.raccpoint_id'
      
        '          join v_abons v on d.abonent_id = v.id) as parent_addre' +
        'ss,'
      ''
      '       (select first(1) pp.raccpoint_id'
      
        '          from proc_accpoint_get_parents (ma.id, current_date, c' +
        'urrent_date) pp'
      '          where rlevel = 1'
      '          order by pp.rlevel) as parent_accpoint_id,'
      ''
      '       ma.createdate,'
      
        '       (select rname from user_getfullname (ma.createuserid)) as' +
        ' creater,'
      '       ma.modifydate,'
      
        '       (select rname from user_getfullname (ma.modifyuserid)) as' +
        ' modifier,'
      '       ma.no_active_meter_action,'
      '       ma.lost_raspred_type,'
      '       ma.lost_rasperd_source  '
      ''
      '  from m_accpoint ma'
      ''
      '  where ma.id = :paccpoint_id')
    AutoUpdateOptions.UpdateTableName = 'M_ACCPOINT'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.GeneratorName = 'GEN_M_ACCPOINT_ID'
    AutoUpdateOptions.WhenGetGenID = wgOnNewRecord
    BeforeOpen = ds_AccpointBeforeOpen
    AllowedUpdateKinds = [ukModify, ukInsert]
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = AccTrans
    Container = DSContainer
    Left = 551
    Top = 75
    object ds_AccpointID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AccpointNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
    object ds_AccpointACCOUNT_TYPE: TFIBIntegerField
      FieldName = 'ACCOUNT_TYPE'
    end
    object ds_AccpointHEAT_SCHEMA: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'HEAT_SCHEMA'
    end
    object ds_AccpointNOCHARGE_ACTION: TFIBIntegerField
      FieldName = 'NOCHARGE_ACTION'
    end
    object ds_AccpointLOST_RASPRED: TFIBIntegerField
      FieldName = 'LOST_RASPRED'
    end
    object ds_AccpointRASPRED_TYPE: TFIBIntegerField
      FieldName = 'RASPRED_TYPE'
    end
    object ds_AccpointMAIN_ADDRESS: TFIBStringField
      FieldName = 'MAIN_ADDRESS'
      Size = 207
      EmptyStrToNull = True
    end
    object ds_AccpointPARENT_ADDRESS: TFIBStringField
      FieldName = 'PARENT_ADDRESS'
      Size = 207
      EmptyStrToNull = True
    end
    object ds_AccpointCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_AccpointCREATER: TFIBStringField
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_AccpointMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_AccpointMODIFIER: TFIBStringField
      FieldName = 'MODIFIER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_AccpointPARENT_ACCPOINT_ID: TFIBIntegerField
      FieldName = 'PARENT_ACCPOINT_ID'
    end
    object ds_AccpointLOST_RASPRED_GROUP: TFIBIntegerField
      FieldName = 'LOST_RASPRED_GROUP'
    end
    object ds_AccpointNO_ACTIVE_METER_ACTION: TFIBIntegerField
      FieldName = 'NO_ACTIVE_METER_ACTION'
    end
    object ds_AccpointLOST_RASPRED_TYPE: TFIBIntegerField
      FieldName = 'LOST_RASPRED_TYPE'
    end
    object ds_AccpointLOST_RASPERD_SOURCE: TFIBIntegerField
      FieldName = 'LOST_RASPERD_SOURCE'
    end
  end
  object dsc_Accpoint: TDataSource
    DataSet = ds_Accpoint
    Left = 583
    Top = 75
  end
  object ds_AccMeter: TpFIBDataSet
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    METERS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'select m.id, meter_num, meter_type, '
      '       bdate as mount_date, mount_meterind,'
      '       verify_date, actno, seal, manfdate, '
      '       m.name, ls, '
      '       edate as dismoint_date, dismount_ind, '
      '       direction, note,'
      '       mt.name as type_name,'
      '       mt.capacity,'
      '       mt.precis'
      ''
      '  from meters m'
      '  join meter_types mt on mt.id = m.meter_type'
      '  where m.accpoint_id = :paccpoint_id'
      
        '    and (:pshow_all = 0 or exists (select 1 from proc_meter_get_' +
        'status (m.id, current_date) where rstatus > 0))'
      '    and M.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select m.id, meter_num, meter_type, '
      '       bdate as mount_date, mount_meterind,'
      '       verify_date, actno, seal, manfdate, '
      '       m.name, ls, '
      '       edate as dismoint_date, dismount_ind, '
      '       direction, note,'
      '       mt.name as type_name,'
      '       mt.capacity,'
      '       mt.precis'
      ''
      '  from meters m'
      '  join meter_types mt on mt.id = m.meter_type'
      '  where m.accpoint_id = :paccpoint_id'
      
        '    and (:pshow_all = 0 or exists (select 1 from proc_meter_get_' +
        'status (m.id, current_date) where rstatus > 0))'
      'order by 2')
    BeforeOpen = ds_AccMeterBeforeOpen
    Transaction = tr_AccMeter
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 551
    Top = 111
    object ds_AccMeterID: TFIBIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 8
      FieldName = 'ID'
    end
    object ds_AccMeterMETER_NUM: TFIBStringField
      DisplayLabel = #8470' '#1089#1095#1077#1090#1095#1080#1082#1072
      DisplayWidth = 12
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object ds_AccMeterMETER_TYPE: TFIBIntegerField
      DisplayLabel = #1058#1080#1087
      FieldName = 'METER_TYPE'
      Visible = False
    end
    object ds_AccMeterMOUNT_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1091#1089#1090#1072#1085#1086#1074#1082#1080
      DisplayWidth = 12
      FieldName = 'MOUNT_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_AccMeterMOUNT_METERIND: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1091#1089#1090#1072#1085#1086#1074#1082#1080
      DisplayWidth = 12
      FieldName = 'MOUNT_METERIND'
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_AccMeterVERIFY_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1075#1086#1089'. '#1087#1086#1074#1077#1088#1082#1080
      DisplayWidth = 15
      FieldName = 'VERIFY_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_AccMeterACTNO: TFIBStringField
      DisplayLabel = #8470' '#1072#1082#1090#1072
      DisplayWidth = 10
      FieldName = 'ACTNO'
      EmptyStrToNull = True
    end
    object ds_AccMeterSEAL: TFIBStringField
      DisplayLabel = #8470' '#1087#1083#1086#1084#1073#1099
      DisplayWidth = 12
      FieldName = 'SEAL'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_AccMeterMANFDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1074#1099#1087#1091#1089#1082#1072
      DisplayWidth = 15
      FieldName = 'MANFDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_AccMeterNAME: TFIBStringField
      DisplayLabel = #1052#1077#1089#1090#1086' '#1091#1089#1090#1072#1085#1086#1074#1082#1080
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_AccMeterLS: TFIBStringField
      DisplayLabel = #8470' '#1051#1057
      DisplayWidth = 12
      FieldName = 'LS'
      Visible = False
      Size = 16
      EmptyStrToNull = True
    end
    object ds_AccMeterDISMOINT_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1085#1103#1090#1080#1103
      FieldName = 'DISMOINT_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_AccMeterDISMOUNT_IND: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1089#1085#1103#1090#1080#1103
      FieldName = 'DISMOUNT_IND'
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_AccMeterDIRECTION: TFIBIntegerField
      DefaultExpression = '1'
      DisplayLabel = #1053#1072#1087#1088#1072#1074#1083#1077#1085#1080#1077
      FieldName = 'DIRECTION'
    end
    object ds_AccMeterNOTE: TFIBStringField
      DisplayLabel = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
      DisplayWidth = 15
      FieldName = 'NOTE'
      EmptyStrToNull = True
    end
    object ds_AccMeterTYPE_NAME: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1089#1095#1077#1090#1095#1080#1082#1072
      FieldName = 'TYPE_NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_AccMeterCAPACITY: TFIBIntegerField
      DisplayLabel = #1047#1085#1072#1095#1085#1086#1089#1090#1100
      FieldName = 'CAPACITY'
    end
    object ds_AccMeterPRECIS: TFIBIntegerField
      DisplayLabel = #1058#1086#1095#1085#1086#1089#1090#1100
      FieldName = 'PRECIS'
    end
  end
  object dsc_AccMeter: TDataSource
    DataSet = ds_AccMeter
    Left = 583
    Top = 111
  end
  object ds_AccDogovors: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select v.g_licschet, v.address, s.name, d.id, p.rbdate, p.redate' +
        ', p.rlevel, p.racc2acc_id,'
      
        '    (case when exists (select 1 from proc_accpoint_meter_exist (' +
        'd.accpoint_id, :pdate) where rmeter_exist = 1)'
      '      then '#39#1059#1089#1090#1072#1085#1086#1074#1083#1077#1085#39' else '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39' end) as meter_exist,'
      '    p.raccpoint_id'
      
        '  from proc_accpoint_get_childs (:paccpoint_id, :pdate, :pdate, ' +
        '1) p'
      '  join dogovors d on d.accpoint_id = p.raccpoint_id'
      '  join v_abons v on v.id = d.abonent_id'
      '  join services s on s.id = d.service_id'
      '  where (:pshow_all = 0'
      '         or'
      '         (:pshow_all = 1 and '
      
        '          exists (select 1 from proc_dogovor_get_status (d.id, :' +
        'pdate) where rstatus = 1)'
      
        '          and ((p.rbdate <= :pdate or p.rbdate is null) and (p.r' +
        'edate is null or p.redate > :pdate))))'
      'order by p.rlevel, v.address')
    BeforeOpen = ds_AccDogovorsBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = tr_ChildAcc
    Container = DSContainer
    Left = 551
    Top = 147
    object ds_AccDogovorsG_LICSCHET: TFIBStringField
      DisplayLabel = #8470' '#1051#1057
      DisplayWidth = 16
      FieldName = 'G_LICSCHET'
      EmptyStrToNull = True
    end
    object ds_AccDogovorsADDRESS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      DisplayWidth = 50
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
    object ds_AccDogovorsNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 25
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_AccDogovorsID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1076#1086#1075#1086#1074#1086#1088#1072
      DisplayWidth = 12
      FieldName = 'ID'
    end
    object ds_AccDogovorsRBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1076#1082#1083#1102#1095#1077#1085#1080#1103
      DisplayWidth = 14
      FieldName = 'RBDATE'
    end
    object ds_AccDogovorsREDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1090#1082#1083#1102#1095#1077#1085#1080#1103
      DisplayWidth = 14
      FieldName = 'REDATE'
    end
    object ds_AccDogovorsRLEVEL: TFIBIntegerField
      DisplayLabel = #1059#1088#1086#1074#1077#1085#1100' '#1074#1083#1086#1078#1077#1085#1085#1086#1089#1090#1080
      FieldName = 'RLEVEL'
    end
    object ds_AccDogovorsRACC2ACC_ID: TFIBIntegerField
      FieldName = 'RACC2ACC_ID'
    end
    object ds_AccDogovorsMETER_EXIST: TFIBStringField
      DisplayLabel = #1053#1072#1083#1080#1095#1080#1077' '#1089#1095#1077#1090#1095#1080#1082#1072
      DisplayWidth = 14
      FieldName = 'METER_EXIST'
      Size = 11
      EmptyStrToNull = True
    end
    object ds_AccDogovorsRACCPOINT_ID: TFIBIntegerField
      FieldName = 'RACCPOINT_ID'
    end
  end
  object dsc_AccDogovors: TDataSource
    DataSet = ds_AccDogovors
    Left = 583
    Top = 147
  end
  object ds_ChildAcc: TpFIBDataSet
    RefreshSQL.Strings = (
      'select id, name, acctype, rbdate, redate, heat_schema, srv_name,'
      
        '       town, street, cast(list(house||apparts) as varchar(4000))' +
        ' as apparts, max(act_date)'
      ''
      '  from'
      
        '      (select ma.id, ma.name, mat.acctype, p.rbdate, p.redate, m' +
        'a.heat_schema,'
      '             sg.name as srv_name,'
      '      '
      '             v.town,'
      '             v.street,'
      '             '#39' '#1076'.'#39'||v.house||coalesce('#39' '#1082'.'#39'||v.corps, '#39#39') house,'
      
        '             coalesce('#39' '#1082#1074'.'#39'||iif(min(v.apparts) = max(v.apparts' +
        '), max(v.apparts), min(v.apparts)||'#39'-'#39'||max(v.apparts)), '#39#39') as ' +
        'apparts,'
      '      '
      
        '             (select first(1) maa.act_date from m_accpoint_acts ' +
        'maa'
      '                where maa.accpoint_id = ma.id'
      '                  and maa.is_deleted = 0'
      '                  and maa.act_date between :pbdate and :pedate'
      '                order by maa.act_date) as act_date'
      '      '
      
        '        from proc_accpoint_get_childs (:paccpoint_id, :pbdate, :' +
        'pedate, 0) p'
      
        '        join m_accpoint ma on ma.id = p.raccpoint_id and ma.id =' +
        ' :OLD_ID'
      '        join m_accpoint_type mat on ma.account_type = mat.id'
      '          and mat.group_acc = 1'
      
        '        left join proc_accpoint_get_childs (p.raccpoint_id, :pbd' +
        'ate, :pedate, 1) pc on p.rlevel = 1'
      '        join dogovors d on d.accpoint_id = pc.raccpoint_id'
      '          and d.bdate <= :pedate'
      '          and (d.edate is null or d.edate > :pbdate)'
      '        join v_abons v on v.id = d.abonent_id'
      '        join services s on s.id = d.service_id'
      '        join services sg on sg.id = s.group_id'
      
        '      group by ma.id, ma.name, mat.acctype, p.rbdate, p.redate, ' +
        'ma.heat_schema,'
      
        '             ma.parent_accpoint_id, sg.name, v.town, v.street, v' +
        '.house, v.corps)'
      'group by 1,2,3,4,5,6,7,8,9')
    SelectSQL.Strings = (
      
        'select id, name, acctype, rbdate, redate, heat_schema, srv_name,' +
        ' racc2acc_id,'
      
        '       town, street, cast(list(house||apparts) as varchar(4000))' +
        ' as apparts, max(act_date)'
      ''
      '  from'
      
        '      (select ma.id, ma.name, mat.acctype, p.rbdate, p.redate, m' +
        'a.heat_schema,'
      '             sg.name as srv_name,'
      '      '
      '             v.town,'
      '             v.street,'
      '             '#39' '#1076'.'#39'||v.house||coalesce('#39' '#1082'.'#39'||v.corps, '#39#39') house,'
      
        '             coalesce('#39' '#1082#1074'.'#39'||iif(min(v.apparts) = max(v.apparts' +
        '), max(v.apparts), min(v.apparts)||'#39'-'#39'||max(v.apparts)), '#39#39') as ' +
        'apparts,'
      '      '
      
        '             (select first(1) maa.act_date from m_accpoint_acts ' +
        'maa'
      '                where maa.accpoint_id = ma.id'
      '                  and maa.is_deleted = 0'
      '                  and maa.act_date between :pbdate and :pedate'
      
        '                order by maa.act_date) as act_date, p.racc2acc_i' +
        'd'
      '      '
      
        '        from proc_accpoint_get_childs (:paccpoint_id, :pbdate, :' +
        'pedate, 0) p'
      '        join m_accpoint ma on ma.id = p.raccpoint_id'
      '        join m_accpoint_type mat on ma.account_type = mat.id'
      '          and mat.group_acc = 1'
      
        '        left join proc_accpoint_get_childs (p.raccpoint_id, :pbd' +
        'ate, :pedate, 1) pc on p.rlevel = 1'
      '        join dogovors d on d.accpoint_id = pc.raccpoint_id'
      '          and d.bdate <= :pedate'
      '          and (d.edate is null or d.edate > :pbdate)'
      '        join v_abons v on v.id = d.abonent_id'
      '        join services s on s.id = d.service_id'
      '        join services sg on sg.id = s.group_id'
      
        '      group by ma.id, ma.name, mat.acctype, p.rbdate, p.redate, ' +
        'ma.heat_schema,'
      
        '             ma.parent_accpoint_id, sg.name, v.town, v.street, v' +
        '.house, v.corps, p.racc2acc_id)'
      'group by 1,2,3,4,5,6,7,8,9,10')
    BeforeOpen = ds_ChildAccBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = tr_ChildAcc
    Container = DSContainer
    Left = 551
    Top = 183
    object ds_ChildAccID: TFIBIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 6
      FieldName = 'ID'
    end
    object ds_ChildAccACCTYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1058#1059
      DisplayWidth = 20
      FieldName = 'ACCTYPE'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_ChildAccSRV_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'SRV_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ChildAccNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
    object ds_ChildAccHEAT_SCHEMA: TFIBSmallIntField
      FieldName = 'HEAT_SCHEMA'
      Visible = False
    end
    object ds_ChildAccRBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1076#1082#1083#1102#1095#1077#1085#1080#1103
      DisplayWidth = 14
      FieldName = 'RBDATE'
    end
    object ds_ChildAccREDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1090#1082#1083#1102#1095#1077#1085#1080#1103
      DisplayWidth = 14
      FieldName = 'REDATE'
    end
    object ds_ChildAccTOWN: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1043#1086#1088#1086#1076
      DisplayWidth = 10
      FieldName = 'TOWN'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_ChildAccSTREET: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1059#1083#1080#1094#1072
      DisplayWidth = 14
      FieldName = 'STREET'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ChildAccMAX: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1072#1082#1090#1072
      FieldName = 'MAX'
    end
    object ds_ChildAccRACC2ACC_ID: TFIBIntegerField
      FieldName = 'RACC2ACC_ID'
    end
    object ds_ChildAccAPPARTS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1044#1086#1084#1072'/'#1050#1074#1072#1088#1090#1080#1088#1099
      DisplayWidth = 12
      FieldName = 'APPARTS'
      Size = 4000
      EmptyStrToNull = True
    end
  end
  object dsc_ChildAcc: TDataSource
    DataSet = ds_ChildAcc
    Left = 583
    Top = 183
  end
  object ds_PotrActs: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE M_ACCPOINT_ACTS'
      'SET ACT_TYPE = :ACT_TYPE,'
      '    ACT_DATE = :ACT_DATE,'
      '    BDATE = :BDATE,'
      '    EDATE = :EDATE,'
      '    IS_DELETED = :IS_DELETED'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO M_ACCPOINT_ACTS('
      '    ACCPOINT_ID,'
      '    ACT_DATE,'
      '    ACT_TYPE,'
      '    BDATE,'
      '    EDATE'
      ')'
      'VALUES('
      '    :ACCPOINT_ID,'
      '    :ACT_DATE,'
      '    :ACT_TYPE,'
      '    :BDATE,'
      '    :EDATE'
      ')')
    RefreshSQL.Strings = (
      'select maa.id, mat.name as acctype, act_date, '
      '       act_type, maa.accpoint_id,'
      '       bdate, edate, is_deleted,'
      
        '       (select rname from user_getfullname (maa.createuserid)) a' +
        's creater,'
      '       createdate,'
      
        '       (select rname from user_getfullname (maa.modifyuserid)) a' +
        's modifier,'
      '       modifydate'
      ''
      '  from m_accpoint_acts maa'
      '  join m_act_types mat on mat.id = maa.act_type'
      '  where maa.accpoint_id = :paccpoint_id'
      '    and maa.is_deleted = :pshow_all'
      '    and MAA.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select maa.id, mat.name as acctype, act_date, '
      '       act_type, maa.accpoint_id,'
      '       bdate, edate, is_deleted,'
      
        '       (select rname from user_getfullname (maa.createuserid)) a' +
        's creater,'
      '       createdate,'
      
        '       (select rname from user_getfullname (maa.modifyuserid)) a' +
        's modifier,'
      '       modifydate'
      ''
      '  from m_accpoint_acts maa'
      '  join m_act_types mat on mat.id = maa.act_type'
      '  where maa.accpoint_id = :paccpoint_id'
      '    and maa.is_deleted = :pshow_all'
      'order by maa.edate desc, maa.id desc')
    BeforeOpen = ds_PotrActsBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = tr_PotrActs
    Container = DSContainer
    Left = 551
    Top = 219
    object ds_PotrActsID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object ds_PotrActsACCTYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1072#1082#1090#1072
      DisplayWidth = 20
      FieldName = 'ACCTYPE'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_PotrActsACT_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1072#1082#1090#1072
      FieldName = 'ACT_DATE'
    end
    object ds_PotrActsBDATE: TFIBDateField
      DisplayLabel = #1053#1072#1095#1072#1083#1086' '#1087#1077#1088#1080#1086#1076#1072
      FieldName = 'BDATE'
    end
    object ds_PotrActsEDATE: TFIBDateField
      DisplayLabel = #1054#1082#1086#1085#1095#1072#1085#1080#1077' '#1087#1077#1088#1080#1086#1076#1072
      FieldName = 'EDATE'
    end
    object ds_PotrActsIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
      Visible = False
    end
    object ds_PotrActsCREATER: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1083
      DisplayWidth = 20
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_PotrActsCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
    end
    object ds_PotrActsMODIFIER: TFIBStringField
      DisplayLabel = #1048#1079#1084#1077#1085#1080#1083
      DisplayWidth = 20
      FieldName = 'MODIFIER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_PotrActsMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'MODIFYDATE'
    end
    object ds_PotrActsACT_TYPE: TFIBIntegerField
      FieldName = 'ACT_TYPE'
    end
    object ds_PotrActsACCPOINT_ID: TFIBIntegerField
      FieldName = 'ACCPOINT_ID'
    end
  end
  object dsc_PotrActs: TDataSource
    DataSet = ds_PotrActs
    Left = 583
    Top = 219
  end
  object ds_MeterInd: TpFIBDataSet
    DeleteSQL.Strings = (
      'update'
      '    METER_IND'
      'set is_deleted = 1'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO METER_IND('
      '    PH,'
      '    METER_ID,'
      '    ACT_ID'
      ')'
      'VALUES('
      '    :PH,'
      '    :METER_ID,'
      '    :ACT_ID'
      ')')
    SelectSQL.Strings = (
      'select mt.name, m.meter_num, mi.ph,'
      
        '       (select rname from user_getfullname (mi.createuserid)) as' +
        ' creater,'
      '       mi.createdate, mi.id,'
      '       mi.meter_id, mi.act_id,'
      '       iif(m.accpoint_id <> maa.accpoint_id, 0, 1) as own_meter,'
      '       (select case'
      '                when count(distinct v.address) = 1'
      '                  then max(v.address)'
      
        '                when count(distinct v.street||'#39' '#1076'.'#39'||v.house||co' +
        'alesce('#39' '#1082'.'#39'||v.corps, '#39#39')) = 1'
      
        '                  then max(v.street||'#39' '#1076'.'#39'||v.house||coalesce('#39' ' +
        #1082'.'#39'||v.corps, '#39#39'))'
      '                when count(distinct v.street) = 1'
      '                  then max(v.street)'
      '                end'
      '        from dogovors d, v_abons v'
      '        where d.accpoint_id = m.accpoint_id'
      '          and v.id = d.abonent_id) as address'
      ''
      '  from meter_ind mi'
      '  join meters m on mi.meter_id = m.id '
      '  join meter_types mt on mt.id = m.meter_type'
      '  join m_accpoint_acts maa on maa.id = mi.act_id'
      '    and maa.id = :id'
      '  where mi.is_deleted = coalesce(:pis_deleted, 0)'
      '  order by own_meter desc, address')
    BeforeOpen = ds_MeterIndBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = tr_PotrActs
    DataSource = dsc_PotrActs
    Container = DSContainer
    Left = 551
    Top = 255
    WaitEndMasterScroll = True
    dcForceOpen = True
    object ds_MeterIndNAME: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1055#1059
      FieldName = 'NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MeterIndMETER_NUM: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1055#1059
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object ds_MeterIndPH: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'PH'
      Size = 3
      RoundByScale = True
    end
    object ds_MeterIndCREATER: TFIBStringField
      DisplayLabel = #1047#1072#1085#1077#1089' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      DisplayWidth = 20
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_MeterIndCREATEDATE: TFIBDateField
      DisplayLabel = #1076#1072#1090#1072' '#1079#1072#1085#1077#1089#1077#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'CREATEDATE'
    end
    object ds_MeterIndID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_MeterIndMETER_ID: TFIBIntegerField
      FieldName = 'METER_ID'
    end
    object ds_MeterIndACT_ID: TFIBIntegerField
      FieldName = 'ACT_ID'
    end
    object ds_MeterIndOWN_METER: TFIBIntegerField
      FieldName = 'OWN_METER'
    end
    object ds_MeterIndADDRESS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      DisplayWidth = 30
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
  end
  object dsc_MeterInd: TDataSource
    DataSet = ds_MeterInd
    Left = 583
    Top = 255
  end
  object ds_ActPotrs: TpFIBDataSet
    DeleteSQL.Strings = (
      'update'
      '    M_ACT_POTR'
      'set is_deleted = 1'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'execute block (p_id d_int = :id)'
      'returns (name type of column services.name,'
      '         potr type of column m_act_potr.potr,'
      '         creater d_str120,'
      '         createdate d_date,'
      '         id d_int,'
      '         accpoint_id d_int,'
      '         group_id d_int,'
      '         sum_dogovors_potr d_double,'
      '         bdate d_date,'
      '         edate d_date,'
      '         child_meter_potrs d_double)'
      'as begin'
      ''
      '  for select s.name, map.potr,'
      
        '       (select rname from user_getfullname (map.createuserid)) a' +
        's creater,'
      '       map.createdate,'
      '       map.id,'
      '       maa0.accpoint_id,'
      '       map.group_id,'
      ''
      '       (select sum(dp.potr) from dogovors_potr dp'
      '          where dp.act_potr_id = map.id'
      '            and dp.is_deleted = 0'
      '            and dp.di_id is null) as sum_dogovors_potr,'
      ''
      '       maa0.bdate,'
      '       maa0.edate'
      ''
      '  from m_act_potr map'
      '  join m_accpoint_acts maa0 on maa0.id = map.act_id'
      '    and maa0.id = :p_id'
      '  join services s on map.group_id = s.id '
      '   and map.is_deleted = 0'
      
        '  into :name, :potr, :creater, :createdate, :id, :accpoint_id, :' +
        'group_id,'
      '       :sum_dogovors_potr, :bdate, :edate'
      '  do begin'
      ''
      '    select sum(dp.potr) potr'
      
        '          from proc_accpoint_get_childs (:accpoint_id, :bdate, :' +
        'edate, 1) p'
      '          join dogovors d on d.accpoint_id = p.raccpoint_id'
      
        '            and exists (select 1 from p_sel_dates_dog_status (d.' +
        'id, :bdate, :edate) where rstatus = 1)'
      '          join dogovors dd on dd.abonent_id = d.abonent_id'
      
        '            and exists (select 1 from p_sel_dates_dog_status (dd' +
        '.id, :bdate, :edate) where rstatus = 1)'
      '          join services s on s.id = dd.service_id'
      '            and s.group_id = :group_id'
      '          join services sg on sg.id = s.group_id'
      '          join m_accpoint ma on ma.id = p.raccpoint_id'
      '          join m_accpoint_type mat on ma.account_type = mat.id'
      '            and mat.group_acc <> 1'
      '          join m_accpoint_acts maa1 on maa1.is_deleted = 0'
      '            and maa1.accpoint_id = p.raccpoint_id'
      '            and maa1.edate between :bdate and :edate'
      '          join m_act_potr mp on mp.is_deleted = 0'
      '            and mp.act_id = maa1.id'
      '            and mp.group_id = :group_id'
      '          join dogovors_potr dp on dp.dogovor_id = dd.id'
      '            and dp.act_potr_id = mp.id'
      '            and dp.is_deleted = 0'
      '            and dp.di_id is null'
      '    into :child_meter_potrs;'
      ''
      '    suspend;'
      '  end'
      ''
      'end')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = tr_PotrActs
    DataSource = dsc_PotrActs
    Container = DSContainer
    Left = 551
    Top = 291
    WaitEndMasterScroll = True
    dcForceOpen = True
    object ds_ActPotrsNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ActPotrsPOTR: TFIBBCDField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      DisplayWidth = 15
      FieldName = 'POTR'
      Size = 3
      RoundByScale = True
    end
    object ds_ActPotrsCREATER: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1083
      DisplayWidth = 20
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_ActPotrsCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
    end
    object ds_ActPotrsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ActPotrsSUM_DOGOVORS_POTR: TFIBFloatField
      DisplayLabel = #1056#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1086' '#1087#1086' '#1076#1086#1075#1086#1074#1086#1088#1072#1084
      DisplayWidth = 16
      FieldName = 'SUM_DOGOVORS_POTR'
    end
    object ds_ActPotrsCHILD_METER_POTRS: TFIBFloatField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077' '#1087#1086' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1084' '#1055#1059
      DisplayWidth = 16
      FieldName = 'CHILD_METER_POTRS'
    end
    object ds_ActPotrsGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
    end
  end
  object dsc_ActPotrs: TDataSource
    DataSet = ds_ActPotrs
    Left = 583
    Top = 291
  end
  object ds_AccTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    ACCTYPE,'
      '    HEATCOUNTER,'
      '    GROUP_ACC'
      'FROM'
      '    M_ACCPOINT_TYPE '
      'order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 551
    Top = 363
    object ds_AccTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AccTypesACCTYPE: TFIBStringField
      FieldName = 'ACCTYPE'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_AccTypesHEATCOUNTER: TFIBSmallIntField
      FieldName = 'HEATCOUNTER'
    end
    object ds_AccTypesGROUP_ACC: TFIBSmallIntField
      FieldName = 'GROUP_ACC'
    end
  end
  object dsc_AccTypes: TDataSource
    DataSet = ds_AccTypes
    Left = 583
    Top = 363
  end
  object DSContainer: TDataSetsContainer
    Left = 748
    Top = 2
  end
  object tr_PotrActs: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 517
    Top = 219
  end
  object ds_AccRaspredType: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    PROC_NAME'
      'FROM'
      '    M_ACC_RASPREDTYPE '
      'order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 551
    Top = 399
    object ds_AccRaspredTypeID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AccRaspredTypeNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_AccRaspredTypePROC_NAME: TFIBStringField
      FieldName = 'PROC_NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_AccRaspredType: TDataSource
    DataSet = ds_AccRaspredType
    Left = 583
    Top = 399
  end
  object tr_ChildAcc: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 517
    Top = 147
  end
  object sp_PotrCalc: TpFIBStoredProc
    Transaction = tr_PotrActs
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE PROC_METER_GEN_POTR (?PACT_ID)')
    StoredProcName = 'PROC_METER_GEN_POTR'
    Left = 551
    Top = 468
    qoStartTransaction = True
  end
  object sp_ChargeAct: TpFIBQuery
    Transaction = tr_PotrActs
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT'
      '    count(1)'
      'FROM'
      '    PROC_GEN_CHARGE_METER(:PACT_ID,'
      '    :PDOCDATE,'
      '    1) ')
    Left = 551
    Top = 436
    qoStartTransaction = True
  end
  object pmMeters: TPopupMenu
    Images = MAIN.ImageList
    Left = 48
    Top = 264
    object N15: TMenuItem
      Action = aMeterAdd
    end
    object N34: TMenuItem
      Action = aMeterEdit
    end
    object N18: TMenuItem
      Action = aMeterDismount
    end
    object N36: TMenuItem
      Action = aMeterDel
    end
    object N46: TMenuItem
      Caption = '-'
    end
    object N38: TMenuItem
      Action = aMeterSetInd
    end
  end
  object pmDogovors: TPopupMenu
    Images = MAIN.ImageList
    Left = 80
    Top = 264
    object N47: TMenuItem
      Action = aDog2AccAdd
    end
    object N48: TMenuItem
      Action = aDog2AccDel
    end
  end
  object pmCascade: TPopupMenu
    Images = MAIN.ImageList
    Left = 112
    Top = 264
    object N49: TMenuItem
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1076#1086#1095#1077#1088#1085#1102#1102' '#1090#1086#1095#1082#1091' '#1091#1095#1077#1090#1072
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1076#1086#1095#1077#1088#1085#1102#1102' '#1090#1086#1095#1082#1091' '#1091#1095#1077#1090#1072
      ImageIndex = 0
    end
    object N50: TMenuItem
      Action = aChildAccAdd
    end
    object N51: TMenuItem
      Action = aChildAccDel
    end
  end
  object pmActs: TPopupMenu
    Images = MAIN.ImageList
    Left = 144
    Top = 264
    object N52: TMenuItem
      Action = aActAdd
    end
    object N53: TMenuItem
      Action = aActEdit
    end
    object N54: TMenuItem
      Action = aActDel
    end
    object N55: TMenuItem
      Caption = '-'
    end
    object N56: TMenuItem
      Action = aActChargeCalc
    end
    object N57: TMenuItem
      Action = aShowDecodeRaspred
    end
  end
  object pmActMeterInd: TPopupMenu
    Images = MAIN.ImageList
    Left = 176
    Top = 264
    object N58: TMenuItem
      Action = aIndAdd
    end
    object N59: TMenuItem
      Action = aIndDel
    end
  end
  object pmActPotr: TPopupMenu
    Images = MAIN.ImageList
    Left = 208
    Top = 264
    object N60: TMenuItem
      Action = aActPotrAdd
    end
    object N62: TMenuItem
      Action = aActPotrDel
    end
    object N63: TMenuItem
      Caption = '-'
    end
    object N61: TMenuItem
      Action = aActPotrCalc
    end
  end
  object QOff_ChildAcc: TpFIBQuery
    Transaction = tr_ClearCascade
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT'
      '    RACCPOINT_ID,'
      '    RMESSAGE'
      'FROM'
      '    PROC_TU2TU(:PACCPOINT_ID,'
      '    :PCHILD_ACCPOINT_ID,'
      '    '#39','#39','
      '    :PDATE,'
      '    2) ')
    Left = 708
    Top = 183
    qoStartTransaction = True
  end
  object tr_AccMeter: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    TRParams.Strings = (
      'write'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 517
    Top = 111
  end
  object AccTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 517
    Top = 75
  end
  object qClearParent: TpFIBQuery
    Transaction = tr_ClearCascade
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT'
      '    RACCPOINT_ID,'
      '    RMESSAGE'
      'FROM'
      '    PROC_TU2TU(:PARENT_ACCPOINT_ID,'
      '    :PACCPOINT_ID,'
      '    '#39','#39','
      '    :PDATE,'
      '    2) ')
    Left = 708
    Top = 215
    qoStartTransaction = True
  end
  object tr_ClearCascade: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 676
    Top = 215
  end
  object ds_Group: TpFIBDataSet
    RefreshSQL.Strings = (
      'select id, name, acctype, rbdate, redate, heat_schema, srv_name,'
      '       town, street, list(house||apparts), max(act_date)'
      ''
      '  from'
      
        '      (select ma.id, ma.name, mat.acctype, p.rbdate, p.redate, m' +
        'a.heat_schema,'
      '             sg.name as srv_name,'
      '      '
      '             v.town,'
      '             v.street,'
      '             '#39' '#1076'.'#39'||v.house||coalesce('#39' '#1082'.'#39'||v.corps, '#39#39') house,'
      
        '             coalesce('#39' '#1082#1074'.'#39'||iif(min(v.apparts) = max(v.apparts' +
        '), max(v.apparts), min(v.apparts)||'#39'-'#39'||max(v.apparts)), '#39#39') as ' +
        'apparts,'
      '      '
      
        '             (select first(1) maa.act_date from m_accpoint_acts ' +
        'maa'
      '                where maa.accpoint_id = ma.id'
      '                  and maa.is_deleted = 0'
      '                  and maa.act_date between :pbdate and :pedate'
      '                order by maa.act_date) as act_date'
      '      '
      
        '        from proc_accpoint_get_childs (:paccpoint_id, :pbdate, :' +
        'pedate, 0) p'
      
        '        join m_accpoint ma on ma.id = p.raccpoint_id and ma.id =' +
        ' :OLD_ID'
      '        join m_accpoint_type mat on ma.account_type = mat.id'
      '          and mat.group_acc = 1'
      
        '        left join proc_accpoint_get_childs (p.raccpoint_id, :pbd' +
        'ate, :pedate, 1) pc on p.rlevel = 1'
      '        join dogovors d on d.accpoint_id = pc.raccpoint_id'
      '          and d.bdate <= :pedate'
      '          and (d.edate is null or d.edate > :pbdate)'
      '        join v_abons v on v.id = d.abonent_id'
      '        join services s on s.id = d.service_id'
      '        join services sg on sg.id = s.group_id'
      
        '      group by ma.id, ma.name, mat.acctype, p.rbdate, p.redate, ' +
        'ma.heat_schema,'
      
        '             ma.parent_accpoint_id, sg.name, v.town, v.street, v' +
        '.house, v.corps)'
      'group by 1,2,3,4,5,6,7,8,9')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SERVICES '
      'where'
      '    GROUP_ID = 0'
      'order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = tr_ChildAcc
    Container = DSContainer
    Left = 551
    Top = 327
    object ds_GroupID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_GroupNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_Group: TDataSource
    DataSet = ds_Group
    Left = 583
    Top = 327
  end
  object ds_GroupLostSrc: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SERVICES '
      'where'
      '    GROUP_ID = 0'
      'order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = tr_ChildAcc
    Container = DSContainer
    Left = 615
    Top = 327
    object FIBIntegerField1: TFIBIntegerField
      FieldName = 'ID'
    end
    object FIBStringField1: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_GroupLostSrc: TDataSource
    DataSet = ds_GroupLostSrc
    Left = 647
    Top = 327
  end
  object ds_ActPotrsDetail: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select address, lost, name, shared_act, sum(potr), v.street, v.h' +
        'ouse, v.apparts from'
      '('
      
        'select v.address, iif(dp.lost = 0, '#39#1054#1089#1085#1086#1074#1085#1086#1077#39', '#39#1055#1086#1090#1077#1088#1080#39') as lost' +
        ','
      '       sg.name, '
      
        '       iif(maa.id = maa.id, '#39#1054#1073#1097#1080#1081' '#1072#1082#1090#39', '#39#1040#1082#1090' '#1048#1055#1059#39') as shared_ac' +
        't, dp.potr potr,'
      '       v.street, v.house, v.apparts'
      '  from m_accpoint_acts maa'
      '  join m_act_potr map on map.is_deleted = 0'
      '    and map.act_id = maa.id'
      '    and map.group_id = :pgroup_id'
      '  join dogovors_potr dp on dp.act_potr_id = map.id'
      '    and dp.is_deleted = 0'
      '    and dp.di_id is null'
      '  join dogovors dd on dp.dogovor_id = dd.id'
      '  join services s on s.id = dd.service_id'
      '  join services sg on sg.id = s.group_id'
      '  join v_abons v on v.id = dd.abonent_id'
      '  where maa.id = :pact_id'
      'union'
      
        'select v.address, iif(dp.lost = 0, '#39#1054#1089#1085#1086#1074#1085#1086#1077#39', '#39#1055#1086#1090#1077#1088#1080#39') as lost' +
        ', '
      '       sg.name, '
      
        '       iif(maa.id = maa1.id, '#39#1054#1073#1097#1080#1081' '#1072#1082#1090#39', '#39#1040#1082#1090' '#1048#1055#1059#39') as shared_a' +
        'ct, dp.potr potr,'
      '       v.street, v.house, v.apparts'
      '  from m_accpoint_acts maa'
      
        '  left join proc_accpoint_get_childs (maa.accpoint_id, maa.bdate' +
        ', maa.edate, 1) p on 1=1'
      '  join dogovors d on d.accpoint_id = p.raccpoint_id'
      
        '    and exists (select 1 from p_sel_dates_dog_status (d.id, maa.' +
        'bdate, maa.edate) where rstatus = 1)'
      '  join dogovors dd on dd.abonent_id = d.abonent_id'
      
        '    and exists (select 1 from p_sel_dates_dog_status (dd.id, maa' +
        '.bdate, maa.edate) where rstatus = 1)'
      '  join services s on s.id = dd.service_id'
      '    and s.group_id = :pgroup_id'
      '  join services sg on sg.id = s.group_id'
      '  join v_abons v on v.id = d.abonent_id'
      '  join m_accpoint ma on ma.id = p.raccpoint_id'
      '  join m_accpoint_type mat on ma.account_type = mat.id'
      '    and mat.group_acc <> 1'
      '  join m_accpoint_acts maa1 on maa1.is_deleted = 0'
      '    and maa1.accpoint_id = p.raccpoint_id'
      '    and maa1.edate between maa.bdate and maa.edate'
      '  join m_act_potr map on map.is_deleted = 0'
      '    and map.act_id = maa1.id'
      '    and map.group_id = :pgroup_id'
      '  join dogovors_potr dp on dp.dogovor_id = dd.id'
      '    and dp.act_potr_id = map.id'
      '    and dp.is_deleted = 0'
      '    and dp.di_id is null'
      '  where maa.id = :pact_id) v'
      '  group by 1,2,3,4, v.street, v.house, v.apparts'
      '  order by lost, v.street, v.house, v.apparts')
    BeforeOpen = ds_ActPotrsDetailBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = tr_PotrActs
    DataSource = dsc_ActPotrs
    Container = DSContainer
    Left = 615
    Top = 291
    oFetchAll = True
    object ds_ActPotrsDetailADDRESS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      DisplayWidth = 30
      FieldName = 'ADDRESS'
      Size = 258
      EmptyStrToNull = True
    end
    object ds_ActPotrsDetailLOST: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103
      FieldName = 'LOST'
      Size = 8
      EmptyStrToNull = True
    end
    object ds_ActPotrsDetailNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 25
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ActPotrsDetailSHARED_ACT: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1072#1082#1090#1072
      FieldName = 'SHARED_ACT'
      Size = 9
      EmptyStrToNull = True
    end
    object ds_ActPotrsDetailSUM: TFIBFloatField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      FieldName = 'SUM'
      DisplayFormat = '#0.00000'
    end
  end
  object dsc_ActPotrsDetail: TDataSource
    DataSet = ds_ActPotrsDetail
    Left = 647
    Top = 291
  end
  object ds_AccLostRaspredType: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    M_ACC_LOST_RASPRED '
      'order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 615
    Top = 399
    object ds_AccLostRaspredTypeID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AccLostRaspredTypeNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_AccLostRaspredType: TDataSource
    DataSet = ds_AccLostRaspredType
    Left = 647
    Top = 399
  end
end
